﻿Module Main

    ''' <summary>
    ''' This is a convienient entry point to allow the class to be executed (by configuring project properties)
    ''' </summary>
    Public Sub Main()

        Dim MyStream As New AudioStream
        Dim MyOscilator As New Oscilator(MyStream)

        Do While MyStream.Busy

        Loop
        MyStream.close()

    End Sub

End Module
